home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / pcl / docs.lha / database / hem.lib < prev    next >
Text File  |  1991-11-19  |  3KB  |  72 lines
  1. @marker(library, Hem, Press, Dover, Postscript)
  2.  
  3. @Form(Defhvar = "@Begin(Defenvironment)@Comment(Tabset?)@~
  4.    @hid[@Parm(Var)]@imbed(val, def <@ @ (initial value @f[@parm(val)])>)@>[@i[@Hemlock Variable]]@\@~
  5.    @Send(FunList {@hid[@Parm(Var)] @>[@i[@Hemlock Variable]]@\})@~
  6.    @HVxindex@Parmquote(Var)@~
  7.    @Imbed(Nolabel, undef '@Imbed(Varlabel,
  8.                                   def <@Label{@Parm(Varlabel)-hvar}>,
  9.                                   undef <@Label{@Parm(Var)-hvar}>)')@~
  10.    @Begin(Defbody)@Tabclear ")
  11.  
  12. @Form(Defhvar1 = "@Begin(Undefbody)@Comment(Tabset?)@~
  13.    @hid[@Parm(Var)]@imbed(val, def <@ @ (initial value @f[@parm(val)])>)@>[@i[@hemlock Variable]]@\@~
  14.    @Send(FunList {@hid[@Parm(Var)] @>[@i[@hemlock Variable]]@\})@~
  15.    @HVxindex@Parmquote(Var)@~
  16.    @Imbed(Nolabel, undef '@Imbed(Varlabel,
  17.                                   def <@Label{@Parm(Varlabel)-hvar}>,
  18.                                   undef <@Label{@Parm(Var)-hvar}>)')@~
  19.    @End(Undefbody)")
  20.  
  21. @Commandstring(Enddefhvar = "@End(Defbody)@End(Defenvironment)")
  22. @Textform(HVxindex = "@Xindex(T {Hemlock variable}, X {@Parm(Text)}, P {@hid[@Parm(Text)]})@'")
  23. @Textform(HVindexref = "@Xindexref(T {Hemlock variable}, X {@Parm(Text)}, P {@hid[@Parm(Text)]})@'")
  24. @Textform(HVarref = '@hid[@Parm(Text)] @~
  25.     @r[(page @Pageref(@Parm(Text)-hvar))]@HVindexref@Parmquote(Text)')
  26.  
  27.  
  28. @Form(Defcom = "@Begin(Defenvironment)@Comment(Tabset?)@~
  29.    @hid[@Parm(Com)]@imbed(bind, def <@ @ (bound to @bf[@parm(bind)])>)@~
  30.    @imbed(Stuff, def <@ @ (@Parm(Stuff))>)@>[@i[Command]]@\@~
  31.    @Send(FunList {@hid[@Parm(Com)] @>[@i[Command]]@\})@~
  32.    @HCxindex@Parmquote(Com)@~
  33.    @Imbed(Nolabel, undef '@Imbed(Comlabel,
  34.                                   def <@Label{@Parm(Comlabel)-com}>,
  35.                                   undef <@Label{@Parm(Com)-com}>)')@~
  36.    @Begin(Defbody)@Tabclear ")
  37.  
  38.  
  39. @Form(Defcom1 = "@Begin(Undefbody)@Comment(Tabset?)@~
  40.    @hid[@Parm(Com)]@imbed(bind, def <@ @ (bound to @bf[@parm(bind)])>)@~
  41.    @imbed(Stuff, def <@ @ (@Parm(Stuff))>)@>[@i[Command]]@\@~
  42.    @Send(FunList {@hid[@Parm(Com)] @>[@i[Command]]@\})@~
  43.    @HCxindex@Parmquote(Com)@~
  44.    @Imbed(Nolabel, undef '@Imbed(Comlabel,
  45.                                   def <@Label{@Parm(Comlabel)-com}>,
  46.                                   undef <@Label{@Parm(Com)-com}>)')@~
  47.    @End(Undefbody)")
  48.  
  49.  
  50. @Commandstring(Enddefcom = "@End(Defbody)@End(Defenvironment)")
  51. @Textform(HCxindex = "@Xindex(T {Command}, X {@Parm(Text)}, P {@hid[@Parm(Text)]})@'")
  52. @Textform(HCindexref = "@Xindexref(T {Command}, X {@Parm(Text)}, P {@hid[@Parm(Text)]})@'")
  53. @Textform(Comref = '@hid[@Parm(Text) ]@~
  54.     @r[(page @Pageref(@Parm(Text)-com))]@HCindexref@Parmquote(Text)')
  55.  
  56.  
  57. @String(IndexFuns "Yes")
  58. @string(supresskeyindex "Yes")
  59.  
  60. @specialfont(f1 = helvetica)
  61. @commandstring(Hemlock = "@f1(Hemlock)")
  62. @textform(hid = '@w{@f1{@parm(Text)}}')
  63. @commandstring[emacs = "@f1<Emacs>"]
  64.  
  65. @specialfont(f2 = "SouvenirDemi")
  66. @textform<binding = "@f2[@w(@parm{text})]">
  67. @textform<bf = "@f2[@w(@parm{text})]">
  68.  
  69. @commandstring[llisp = "L@c(isp)"]
  70.  
  71. @commandstring[windows = "X windows"]
  72.